home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO050.dsk / BUD.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  121 lines
  1. 15 D$ =  CHR$(4)
  2. 20  PRINT D$;"PR#3"
  3. 25  PRINT 
  4. 100 K = 0:Q = 0
  5. 2000  GOTO 4000
  6. 2200  REM  READ TIME
  7. 2205  IF FC = 1  THEN TM$ = "": RETURN 
  8. 2210  PRINT D$;"IN#4": PRINT D$;"PR#4"
  9. 2220  INPUT ":";CK$
  10. 2230  PRINT D$;"IN#0": PRINT D$;"PR#0"
  11. 2240  PRINT D$;"PR#3"
  12. 2260 TM$ =  MID$ (CK$,12,2) +":" + MID$ (CK$,15,2)
  13. 2270 X =  VAL( MID$ (CK$,12,2))
  14. 2280  IF X <12  THEN TM$ = TM$ +"  A.M.": RETURN 
  15. 2290  IF X <13  THEN TM$ = TM$ +"  P.M.": RETURN 
  16. 2300 X = X -12:X$ =  STR$(X):TM$ = X$ + RIGHT$(TM$,3) +"  P.M."
  17. 2310  RETURN 
  18. 4000  REM  BUDGETS
  19. 4010  GOSUB 2200
  20. 4020  HOME 
  21. 4030  HTAB 33: VTAB 1: PRINT "BUDGETS SECTION"
  22. 4040  HTAB 28: PRINT "========================="
  23. 4050  HTAB 5: VTAB 5: PRINT "ENTER THE CATEGORY OF INTEREST, <RTN> TO SEE LIST, OR <ESC> FOR MAIN MENU""
  24. 4080  HTAB 69: VTAB 23: PRINT TM$
  25. 6000  REM  BUDGETS
  26. 6010 IN$ = ""
  27. 6020  HTAB 35 +K: VTAB 8: PRINT IN$;
  28. 6030  GET X$: IF X$ < > CHR$(13)  THEN IN$ = IN$ +X$: GOTO 6070
  29. 6040  GOTO 9000
  30. 6050  HTAB 35: VTAB 8: PRINT IN$: GOTO 6500
  31. 6060  NEXT 
  32. 6070  IF X$ =  CHR$(27)  THEN 40000
  33. 6080  FOR I = 1 TO 40
  34. 6090  IF  LEN(CG$(I)) <1  THEN 6120
  35. 6100  IF IN$ =  LEFT$(CG$(I), LEN(IN$))  THEN K = K +1:Z$ = CG$(I):Q = I
  36. 6110  NEXT 
  37. 6120  IF K = 1  THEN K = 0:IN$ = Z$: GOTO 6050
  38. 6130  IF K = 0  THEN 6000
  39. 6140 K = 0: GOTO 6020
  40. 6500  IF  VAL(BG$(Q)) = 0  THEN BG$(Q) = "0.00"
  41. 6510  HTAB 16: VTAB 18: PRINT "YOU HAVE BUDGETED $";BG$(Q);" FOR ";CG$(Q);" THIS YEAR"
  42. 6520  HTAB 1: VTAB 20: PRINT "YOU MAY EDI<T> THIS, <V>IEW YOUR DEBITS TO THIS CATEGORY, OR GO TO B<U>DGET MENU"
  43. 6530  HTAB 40: VTAB 22: GET X$
  44. 6540  IF X$ = "U"  OR X$ = "u"  THEN Q = 0: GOTO 4000
  45. 6550  IF X$ = "T"  OR X$ = "t"  THEN 10000
  46. 6560  IF X$ = "V"  OR X$ = "v"  THEN 15000
  47. 6570  IF X$ < >"V"  THEN 6510
  48. 9000  REM  PRINT CATEGORY LIST
  49. 9010  HOME 
  50. 9020  HTAB 31: VTAB 1: PRINT "---CATEGORY LIST---"
  51. 9030  VTAB 3
  52. 9040  FOR I = 1 TO 20
  53. 9050  IF  LEN(CG$(I)) <1  THEN 9140
  54. 9060  PRINT CG$(I)
  55. 9070  NEXT 
  56. 9080  VTAB 3
  57. 9090  FOR I = 21 TO 40
  58. 9100  IF  LEN(CG$(I)) <1  THEN 9140
  59. 9110  HTAB 40
  60. 9120  PRINT CG$(I)
  61. 9130  NEXT 
  62. 9140  HTAB 28: VTAB 23: PRINT "PRESS ANY KEY TO CONTINUE"
  63. 9150  GET X$
  64. 9160  GOTO 4000
  65. 10000  REM  EDIT
  66. 10010  HOME 
  67. 10020  HTAB 16: VTAB 2
  68. 10030  PRINT "YOU HAVE BUDGETED $";BG$(Q);" FOR ";CG$(Q);" THIS YEAR"
  69. 10040  HTAB 24: VTAB 5
  70. 10050  PRINT "ENTER THE NEW AMOUNT HERE $";
  71. 10055  INPUT "";Z$
  72. 10060  IF  VAL(Z$) <0  THEN Z$ = Z$ * -1
  73. 10070 J =  INT( VAL(Z$) +.001):BG$(Q) =  STR$(J)
  74. 10080  HTAB 6: VTAB 10
  75. 10090  PRINT "DO YOU WISH TO <`>ENTER $";BG$(Q);" AS NEW BUDGET AMOUNT FOR ";CG$(Q)
  76. 10100  HTAB 27: VTAB 11
  77. 10110  PRINT "OR RETURN TO B<U>DGET MENU?"
  78. 10120  HTAB 40: VTAB 13: GET X$
  79. 10130  IF X$ = "U"  OR X$ = "u"  THEN Q = 0: GOTO 4000
  80. 10140  IF X$ = "`"  OR X$ = "~"  THEN : GOTO 20000
  81. 10150  IF X$ < >"`"  THEN 10000
  82. 15000  REM  VIEW CATEGORY DEBITS
  83. 15010 BF = 1:YY$ = CG$(Q)
  84. 15015  HOME 
  85. 15020  PRINT D$;"CHAIN /RAM/RPT,@25500"
  86. 18000  REM  RETURN FROM REPORTS
  87. 18010  HOME 
  88. 18020  PRINT 
  89. 18025  IF PF = 1  THEN  PRINT D$;"PR#1"
  90. 18027  PRINT : PRINT 
  91. 18030  HTAB 16: VTAB 3: PRINT "YOU HAVE BUDGETED $";BG$(Q);" FOR ";CG$(Q);" THIS YEAR"
  92. 18037  PRINT 
  93. 18040  HTAB 26: VTAB 5: PRINT "YOU HAVE SPENT $";TL$
  94. 18050 X =  VAL(BG$(Q)) - VAL(TL$): IF X <0  THEN NX = X:X = X * -1
  95. 18060 J = X *100:Z$ =  STR$( INT(J +.01)): IF  LEN(Z$) = 1  THEN Z$ = "0" +Z$
  96. 18070 Z$ =  STR$( INT(X +.001)) +"." + RIGHT$(Z$,2)
  97. 18080  IF NX <0  THEN 18200
  98. 18085  PRINT 
  99. 18090  HTAB 22: VTAB 9: PRINT "YOU HAVE $";Z$;" LEFT IN YOUR BUDGET"
  100. 18095  IF PF = 1  THEN PF = 0: PRINT D$;"PR#0"
  101. 18100  HTAB 15: VTAB 20: PRINT "DO YOU WISH TO GO TO B<U>DGET MENU OR <M>AIN MENU?"
  102. 18110  HTAB 40: VTAB 22: GET X$
  103. 18120  IF X$ = "M"  OR X$ = "m"  THEN Q = 0: GOTO 40000
  104. 18130  IF X$ = "U"  OR X$ = "u"  THEN Q = 0: GOTO 4000
  105. 18140  IF X$ < >"u"  THEN 18000
  106. 18150  PRINT 
  107. 18200  HTAB 20: VTAB 9: PRINT "YOU HAVE OVERSPENT $";Z$;" IN THIS BUDGET"
  108. 18205  IF PF = 1  THEN PF = 0: PRINT D$;"PR#0"
  109. 18210 NX = 0
  110. 18220  GOTO 18100
  111. 20000  REM  SAVE CATEGORIES
  112. 20010  PRINT D$;"OPEN /RAM/CAT.DATA,L$20"
  113. 20030  PRINT D$;"WRITE /RAM/CAT.DATA,R";Q
  114. 20040 CG$ = CG$(Q)
  115. 20050  PRINT CG$
  116. 20060 BG$ = BG$(Q)
  117. 20070  PRINT BG$
  118. 20090  PRINT D$;"CLOSE /RAM/CAT.DATA"
  119. 20100 Q = 0: GOTO 4000
  120. 40000  PRINT D$;"CHAIN /RAM/CW,@4005"
  121. 60000  END